home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / name that star (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  353 lines
  1. 0 rem--ahoy--april issue--name that star--prog page 13
  2. 1 rem **** "name that star" v2.0 ****
  3. 2 rem **  designed by: bob lloret  **
  4. 3 rem ****  for: ahoy' magazine  ****
  5. 4 rem
  6. 60 print "[147]":poke 53280,4:poke53281,7
  7. 70 print tab(8);"[149]contestants application"
  8. 80 print tab(8);"first name:";:input name$
  9. 85 print tab(8);"congratulations...";name$;","
  10. 90 print tab(8);"you have been accepted.":for d=1 to 3000:next d
  11. 100 print "[147]":gosub 880:gosub900
  12. 110 print tab(18);"[145][145][145][145][145][145][145]";a$:print tab(18);"[145]";a4$
  13. 120 gosub 1000
  14. 130 for d=1 to 1500:next d:print"[155][145][145][145][145][145]";
  15. 140 gosub 1460
  16. 170 for d=1 to 3000:next d
  17. 180 print "":gosub 1000:print tab(18);a$:print tab(18);a1$
  18. 190 print "[145][145][145][145][145][145][145][145]":gosub 1460:print tab(16);"[145], ";name$
  19. 200 for d=1 to 2500:next d:print"":gosub 1000
  20. 210 print tab(10);"[145][145][145][145][145]do you want me to":print tab(10);"explain the game"
  21. 215 print tab(10);name$;" ?"
  22. 220 print tab(18);"type y/n"
  23. 230 get by$:if by$="" then 230
  24. 240 if by$="n" then 340
  25. 250 print"":gosub 1000
  26. 260 print tab(18);a$:print tab(18);"   ":print tab(18);"[145][145]";a3$
  27. 270 print "[145][145][145][145][145][145][145][145]":gosub 1460
  28. 280 get an$:if an$<>"c" then 280
  29. 290 print "":gosub 1000:print"[145][145][145][145][145][145]":gosub1460
  30. 300 get an$:if an$<>"c" then 300
  31. 310 print "":gosub 1000:print"[145][145][145][145][145][145]":gosub1460
  32. 315 get an$:if an$<>"c" then 315
  33. 320 print "":gosub 1000:print"[145][145][145][145][145][145]":gosub1460
  34. 330 get an$:if an$<>"c" then 330
  35. 340 print "":gosub 1000:print"[145][145][145][145][145][145]"
  36. 350 print tab(10);"if you're ready":print tab(10);"to go..."
  37. 360 print tab(10);"    let's play":print tab(10);"  name that star"
  38. 365 for d=1 to 1200:next d
  39. 370 print:print:for a=1 to 20:print tab(18);"[145]";a$:print tab(18);a5$
  40. 380 for d=1 to 50:next:print tab(18);"[145]   ":print tab(18);"[145][145]";a4$
  41. 390 for d=1 to 50:next d:next a
  42. 400 print "[145]":gosub 1000
  43. 410 if by$="n" then for a=1 to 20:read junk$:next a
  44. 420 print tab(18);a$:print tab(18);"[145]";a3$:print "[145][145][145][145][145][145][145][145]"
  45. 430 print tab(10);"our first mystery":print tab(10);"name is...."
  46. 435 for d=1 to 2500:next d
  47. 440 print "":gosub 1000:goto 465
  48. 447 rem
  49. 448 rem [ ****  main loop  **** ]
  50. 449 rem =========================
  51. 450 if mn=40 then 750
  52. 455 print tab(10);"our next mystery":print tab(10);"name is...."
  53. 460 for d=1 to 2000:next d:print "":gosub 1000
  54. 465 n=1:g=0:mn=mn+1
  55. 470 read n$:if n>1 then 475
  56. 474 print tab(12);"[145][145][145][145][145][145][145][145][145][145][145]";n$;"       ":n=n+1:goto 470
  57. 475 print ""
  58. 480 read cl$:if cl$="0" then 500
  59. 490 print tab(10);cl$:goto 480
  60. 500 g=g+1:print tab(13);"[145][145][145][145][145][145][145][145]                    "
  61. 505 print tab(12);"[145]";g;:inputgue$
  62. 510 if gue$=n$ then 535
  63. 520 if left$(gue$,5)=left$(n$,5) then 535
  64. 530 if gue$<> n$ then goto 590
  65. 535 sc=sc+1:print ""
  66. 540 gosub 560:gosub 1000:print tab(10);"[145][145][145][145][145]correct, ";name$
  67. 545 print tab(10);"you now have";sc:print tab(10);"correct"
  68. 550 for d=1 to 2000:next d:print "":gosub 1000:print "[145][145][145][145][145][145]"
  69. 555 goto 450
  70. 560 si=54272:for a=0 to 24:poke si+a,0:next a:poke si+24,15:poke si+6,255
  71. 565 for a=1 to 6:for z=50 to 105 step 15:poke si,z:poke si+1,z:poke si+4,17
  72. 570 next z:next a:poke si+4,16:poke si,0:poke si+1,0:return
  73. 580 rem [ *** wrong answers *** ]
  74. 585 rem =========================
  75. 590 if g>1 then 640
  76. 600 print "":gosub 1000:print tab(10)"[145][145][145][145][145]wrong,";name$
  77. 610 print tab(10);"you have 2 guesses":print tab(10);"left."
  78. 620 print tab(10);"let's try again..":print "":for d=1 to 2000:next d
  79. 630 gosub 1000:print "[145][145]":goto 500
  80. 640 if g>2 then 690
  81. 650 print "":gosub 1000:print tab(10)"[145][145][145][145][145]wrong again[129],";name$
  82. 660 print tab(10);"you have 1 guess":print tab(10);"left."
  83. 670 print tab(10);"let's try again..":print "":for d=1 to 2000:next d
  84. 680 gosub 1000:print "[145][145]":goto 500
  85. 690 print "":gosub 1000:print tab(10)"[145][145][145][145][145]i'm sorry,";name$
  86. 700 print tab(10);"but this famous":print tab(10);"person is..."
  87. 710 print tab(10);n$:print "":for d=1 to 3000:next d
  88. 720 gosub 1000:print "[145][145][145][145][145][145]":goto 450
  89. 745 rem ***  closing dialogue  ***
  90. 746 rem ==========================
  91. 750 print tab(10);"[158]well,";name$;", its":print tab(19);"time for us to"
  92. 760 print tab(10);"be leaving you,but":print tab(10);"before we go..."
  93. 765 for d=1 to 3000:next d
  94. 770 print "":gosub 1000:print"[145][145][145][145][145][145]":print tab(10);"[158]may i say that you"
  95. 780 print tab(10);"have been a wond-":print tab(10);"erful guest and a"
  96. 790 print tab(10);"good sport. so long"
  97. 800 for d=1 to 500:next d
  98. 810 print:print:print:for a=1 to 50:print tab(18);"[145][145]";a$:print tab(18);a1$
  99. 820 for d=1 to 100:next:print tab(18);"[145]   ":print tab(18);"[145][145]";a3$
  100. 830 for d=1 to 100:next d:next a
  101. 840 end
  102. 878 rem [ ** char. assignment ** ]
  103. 879 rem ==========================
  104. 880 a$="[158] q ":a1$="[158][206]t[205]":a3$="[158][205]t[205]":a4$="[158][205]t[145][206]":a5$="[158][183]t[183]"
  105. 890 return
  106. 898 rem [ *** main screen *** ]
  107. 899 rem =======================
  108. 900 print "[147]":poke 53280,6:poke 53281,0
  109. 910 print tab(10);"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]":print tab(10);"[166]                  [166]"
  110. 920 print tab(10);"[166] [158] name that star  [166]"
  111. 930 print tab(10);"[166][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][166]":print spc(7);"[154]name:"
  112. 940 print spc(6);"guess:":print "[156]    [168][168][168][168][168]    [168][168][168][168][168]    [168][168][168][168][168]   [168][168][168][168][168]"
  113. 960 print tab(15);"[149]         ":print tab(15);"[158] name    "
  114. 970 printtab(15);"  that   ":printtab(15);"   star  ":printtab(15);"[149]         "
  115. 980 return
  116. 998 rem [ ** dialogue circle ** ]
  117. 999 rem =========================
  118. 1000 print tab(8);"[129][145][145][145][145][145][145][145][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  119. 1010 print tab(8);"[194]                    [194]"
  120. 1020 print tab(8);"[194]                    [194]"
  121. 1030 print tab(8);"[194]                    [194]"
  122. 1040 print tab(8);"[194]                    [194]"
  123. 1060 print tab(8);"[202][195][195][195][195][195][195][195][195][195][195][201][195][195][195][195][195][195][195][195][195][203]"
  124. 1070 return
  125. 1460 read sent$:if sent$="0" then return
  126. 1470 print tab(10);"[129]";sent$:goto 1460
  127. 1498 rem [ * opening dialogue * ]
  128. 1499 rem ========================
  129. 1500 data hello ladies and
  130. 1510 data gentlemen. welcome
  131. 1520 data to name that star.,0
  132. 1530 data let's welcome our
  133. 1540 data player,0
  134. 1550 data i will display a
  135. 1560 data famous name where
  136. 1570 data it says "name"
  137. 1580 data type c to continue,0
  138. 1590 data the name will be
  139. 1600 data jumbled so you can
  140. 1610 data not read it...
  141. 1620 data type c to continue,0
  142. 1630 data i will give you a
  143. 1640 data clue so you can
  144. 1650 data try to guess it.
  145. 1660 data type c to continue,0
  146. 1670 data you'll only get 3
  147. 1680 data tries to guess it-
  148. 1690 data otherwise you lose
  149. 1700 data type c to continue,0
  150. 1704 rem
  151. 1705 rem [ ** mystery names ** ]
  152. 1706 rem =======================
  153. 1710 data kmci ragejg,mick jagger
  154. 1720 data he's a hard person
  155. 1730 data to satisfy...
  156. 1740 data who is this famous
  157. 1750 data person ?,0
  158. 1760 data svile splerey,elvis presley
  159. 1770 data his title is king
  160. 1780 data but he has passed
  161. 1790 data who is this famous
  162. 1800 data recording star?,0
  163. 1810 data nepcers caryt,spencer tracy
  164. 1820 data his famous partner
  165. 1830 data was "kate"...
  166. 1840 data who is this famous
  167. 1850 data actor?,0
  168. 1860 data ronlam rodban,marlon brando
  169. 1870 data worked the docks
  170. 1880 data lived in paris had
  171. 1890 data italian heritage
  172. 1900 data who is he?,0
  173. 1910 data majes snares,james arness
  174. 1920 data that "things" scary
  175. 1930 data wore a six shooter
  176. 1940 data who is this famous
  177. 1950 data actor ?,0
  178. 1960 data njho yenaw,john wayne
  179. 1970 data his title was duke
  180. 1980 data sat tall in the
  181. 1990 data saddle
  182. 2000 data who is he ?,0
  183. 2010 data craegi neall,gracie allen
  184. 2020 data she was married to
  185. 2030 data her straight man
  186. 2040 data not too intelligent
  187. 2050 data who is she ?,0
  188. 2060 data abbe hurt,babe ruth
  189. 2070 data carried big stick
  190. 2080 data bulging waist line
  191. 2090 data known for records
  192. 2100 data who is this star ?,0
  193. 2110 data clareih phlanci,charlie chaplin
  194. 2120 data a derby a cane and
  195. 2130 data tails were this
  196. 2140 data man's trademark
  197. 2150 data who is he ?,0
  198. 2160 data roveli yrhda,oliver hardy
  199. 2170 data he was always in
  200. 2180 data another fine mess
  201. 2190 data name this famous
  202. 2200 data t.v. comic ?,0
  203. 2210 data keajic snogela,jackie gleason
  204. 2220 data only his size out-
  205. 2230 data weighed his comedy
  206. 2240 data who is this well
  207. 2250 data known star ?,0
  208. 2260 data dalnor granea,ronald reagan
  209. 2270 data this man's career
  210. 2280 data went from hollywood
  211. 2290 data to washington...
  212. 2300 data who is this star,0
  213. 2310 data rashnoir ofdr,harrison ford
  214. 2320 data has a state for a
  215. 2330 data first name
  216. 2340 data has a wookie for
  217. 2350 data co-pilot....,0
  218. 2360 data chougro axrm,groucho marx
  219. 2370 data smoked a big cigar
  220. 2380 data heavy eyebrows and
  221. 2390 data mustache...
  222. 2400 data who is he ?,0
  223. 2410 data kjac gulknam,jack klugman
  224. 2420 data sloppy room mate
  225. 2430 data medical examiner
  226. 2440 data loves the horses
  227. 2450 data who is this actor ?,0
  228. 2460 data yandy motsah,danny thomas
  229. 2470 data there was always
  230. 2480 data room for daddy
  231. 2490 data who is this big
  232. 2500 data nosed tv actor,0
  233. 2510 data ele jamros,lee majors
  234. 2520 data was married to an
  235. 2530 data angel- keeps on
  236. 2540 data falling
  237. 2550 data who is this star ?,0
  238. 2560 data lilb byixb,bill bixby
  239. 2570 data a hulk of a man
  240. 2580 data friendly only to
  241. 2590 data martians
  242. 2600 data who is he ?,0
  243. 2610 data rneyh lewnikr,henry winkler
  244. 2620 data his thumbs are his
  245. 2630 data trademark- his days
  246. 2640 data were always happy
  247. 2650 data who is this actor ?,0
  248. 2660 data obb rendev,bob denver
  249. 2670 data a beatnik who was
  250. 2680 data shipwrecked on an
  251. 2690 data island...
  252. 2700 data who is he ?,0
  253. 2710 data bor neerir,rob reiner
  254. 2720 data his father-in-law
  255. 2730 data called him meathead
  256. 2740 data father's name carl
  257. 2760 data who is he ?,0
  258. 2770 data honj thorsyfe,john forsythe
  259. 2780 data his bachelorhood
  260. 2790 data led to a dynasty
  261. 2800 data who is this famous
  262. 2810 data tv actor ?,0
  263. 2820 data raym terly roemo,mary tyler moore
  264. 2830 data rhoda's best friend
  265. 2840 data rob's wife
  266. 2850 data famous tv and movie
  267. 2860 data actress ?,0
  268. 2870 data vaing domlace,gavin macleod
  269. 2880 data loves his boat
  270. 2890 data worked for lou
  271. 2900 data who is this well
  272. 2910 data known tv actor,0
  273. 2920 data nomded winslo,demond wilson
  274. 2930 data his lazy father
  275. 2940 data built a junk empire
  276. 2950 data this tv actor was
  277. 2960 data also very odd,0
  278. 2970 data treep klaf,peter falk
  279. 2980 data his raincoat was a
  280. 2990 data trademark...looked
  281. 3000 data from one side
  282. 3010 data a famous movie star,0
  283. 3020 data olu stolleco,lou costello
  284. 3030 data never knew the
  285. 3040 data names of the base-
  286. 3050 data ball team... who
  287. 3060 data was this star ?,0
  288. 3070 data chridar seydurfs,richard dreyfuss
  289. 3080 data looked at a large
  290. 3090 data set of jaws- had a
  291. 3100 data close encounter
  292. 3110 data a famous actor,0
  293. 3120 data neordal yinom,leonard nimoy
  294. 3130 data a starship was his
  295. 3140 data enterprise-his
  296. 3150 data touch paralyzing
  297. 3160 data a famous actor,0
  298. 3170 data lytle lavsaas,telly savalas
  299. 3180 data a bald detective
  300. 3190 data loved a lollipop
  301. 3200 data greek heritage..who
  302. 3210 data is this actor ?,0
  303. 3220 data honj lavratto,john travolta
  304. 3230 data ran a high temp.
  305. 3240 data on sat. night but
  306. 3250 data stayed alive
  307. 3260 data who is he ?,0
  308. 3270 data chamiel nodnal,michael landon
  309. 3280 data went from a large
  310. 3290 data ranch to a little
  311. 3300 data house...who is this
  312. 3310 data famous actor ?,0
  313. 3320 data honnjy rosnac,johnny carson
  314. 3330 data sidekicks doc & ed
  315. 3340 data helped get him
  316. 3350 data through tonight
  317. 3360 data who is he ?,0
  318. 3370 data tnicl sootdawe,clint eastwood
  319. 3380 data a monkey was his
  320. 3390 data pal-this tough guy
  321. 3400 data was never clean
  322. 3410 data who is this star,0
  323. 3420 data rosbi falkrof,boris karloff
  324. 3430 data this monster of an
  325. 3440 data actor was the first
  326. 3450 data of his breed
  327. 3460 data who is he ?,0
  328. 3470 data pousy lases,soupy sales
  329. 3480 data his straight man
  330. 3490 data was fang..loved to
  331. 3500 data receive pies
  332. 3510 data who is he ?,0
  333. 3520 data kimecy smueo,mickey mouse
  334. 3530 data walt's favorite
  335. 3540 data character although
  336. 3550 data he wasn't goofy
  337. 3560 data who is he ?,0
  338. 3570 data nobir liamswil,robin williams
  339. 3580 data he was out of this
  340. 3590 data world but mindy
  341. 3600 data loved him..who is
  342. 3610 data this actor ?,0
  343. 3620 data rawhod clesol,howard cosell
  344. 3630 data a wig and mouth are
  345. 3640 data his trademarks...
  346. 3650 data very sarcastic
  347. 3660 data who is he ?,0
  348. 3670 data repry mooc,perry como
  349. 3680 data lots of letters
  350. 3690 data were received for
  351. 3700 data this crooner
  352. 3710 data who is he ?,0
  353.